home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Diamond Collection / The Diamond Collection (Software Vault)(Digital Impact).ISO / cdr42 / qplay.zip / QPLAY.BAS < prev    next >
BASIC Source File  |  1995-02-01  |  3KB  |  88 lines
  1. SHELL "SBFMDRV.COM"
  2. SCREEN 13
  3. FOR d = 0 TO 1000: NEXT d
  4.  
  5. begin:
  6. CLS
  7. FOR c = 16 TO 31 STEP 1
  8. LINE (0 + c, 0 + c)-(320 - c, 200 - c), c, BF
  9. CIRCLE (0, 0), 20, c: PAINT (1, 1), c
  10. CIRCLE (320, 0), 20, c: PAINT (319, 1), c
  11. NEXT c
  12. LINE (0 + c, 0 + c)-(320 - c, 200 - c), 0, BF
  13. FOR d = 0 TO 3000: NEXT d
  14. FOR c = 16 TO 31 STEP .2
  15. NEXT c
  16. COLOR 48: LOCATE 5, 5: PRINT "        Q-SOUND! Ver 1.0"; CHR$(145)
  17. COLOR 4: LOCATE 8, 12: PRINT "P>lay    F>ast Forward"
  18. LOCATE 12, 12: PRINT "R>ecord  E<X>it"
  19. LOCATE 16, 12: PRINT "H>elp me dammit!"
  20. LOCATE 18, 9: PRINT "D>irectory of current dir"
  21.  
  22. st:
  23. A$ = INKEY$: IF A$ = "" THEN GOTO st
  24. IF A$ = "p" OR A$ = "P" THEN GOSUB pl
  25. IF A$ = "f" OR A$ = "F" THEN GOSUB ff
  26. IF A$ = "r" OR A$ = "R" THEN GOSUB rec
  27. IF A$ = "x" OR A$ = "X" THEN GOSUB xit
  28. IF A$ = "h" OR A$ = "H" THEN GOSUB helpmedammit
  29. IF A$ = "d" OR A$ = "D" THEN GOSUB directory
  30. GOTO st
  31.  
  32. pl:
  33. LOCATE 24, 1: INPUT "Filename"; f$: LOCATE 24, 1: PRINT "Playing..."
  34. SHELL "PLAY " + f$ + " /Q"
  35. LOCATE 24, 1: PRINT "....Done....": GOTO begin
  36.  
  37. ff:
  38. LOCATE 24, 1: INPUT "Change directory"; cd$: LOCATE 24, 1: PRINT STRING$(20, 32)
  39. SHELL "CD \" + cd$
  40. GOTO begin
  41.  
  42. rec:
  43. FOR d = 0 TO 2500: NEXT d
  44. CLS
  45. LOCATE 4, 4: PRINT "Sorry, you gotta register to do this!"
  46. PRINT "See REGISTER.GIF with a .GIF based file viewer"
  47. PRINT "                    -OR-"
  48. INPUT "      Do you want to view it now"; vr$
  49. IF LEFT$(vr$, 1) = "y" OR LEFT$(vr$, 1) = "Y" THEN SHELL "CD\QPLAY": SHELL "BITMAP REGISTER.GIF"
  50. GOTO begin
  51.  
  52. helpmedammit:
  53. CLS
  54. PRINT "                      Main Menu Stuff"
  55. PRINT "Play- Plays any sound files you have (or included ones!)"
  56. PRINT "FastForward- Changes to directory you specify"
  57. PRINT "Record- (Registered Version) Records sounds thru MIC at up to"
  58. PRINT "15.160KHz"
  59. PRINT "Exit- Exits the program and returns to that great ol' C:\> prompt!"
  60. INPUT "PRESS ENTER..."; A$
  61. CLS
  62. PRINT "Helpmedammit!- The help screen you are (hopefully) viewing now"
  63. PRINT "Sounds- Plays any .VOC, .WAV, .MID, or .CMF sound file"
  64. PRINT ".VOC- Creative Labs VOICE file format"
  65. PRINT ".WAV- Windows WAVE file format"
  66. PRINT ".MID- MIDI sound file format"
  67. INPUT "PRESS ENTER..."; A$
  68. CLS
  69. PRINT "KHz- KiloHertz, rate at which a sound is recorded,"
  70. PRINT "samples per second. The bigger the number, the higher"
  71. PRINT "the quality of the recorded sound, but results in a much"
  72. PRINT "bigger file (15 sec @ 44.1KHz ≈ 660k!!)"
  73. PRINT "Pretty Darn HELPful, eh?"
  74. PRINT
  75. INPUT "I'm ready to go back to the nifty menu..."; m$: GOTO begin
  76.  
  77. directory:
  78. SHELL "DIR /P "
  79. GOTO begin
  80.  
  81. xit:
  82. LOCATE 24, 1: INPUT "Sure"; xit$
  83. IF LEFT$(xit$, 1) = "y" OR LEFT$(xit$, 1) = "Y" THEN PLAY "ALIENEN.WAV": SYSTEM
  84. LOCATE 24, 1: PRINT STRING$(20, 32)
  85. RETURN
  86.  
  87.  
  88.